colnames(insfa)[1]="Sex"
colnames(insfa)[2]="Year"
colnames(insfa)[3]="Eat.at.canteen"
levels(insfa$Eat.at.canteen) <- c("No", "Yes")
colnames(insfa)[5:11]=c("Member.of.BDE.association", "Member.of.La.Ruee.vers.Orge.association", "Member.of.Solinsfa.association", "Member.of.Isogone.association", "Member.of.Fest.Noz.association", "Member.of.other.association", "Member.of.no.association")
colnames(insfa)[18]="Other.reason.to.integrate.INSFA"
colnames(insfa)[19:20]=c("Studies.as.expected", "Feel.fulfilled.by.studies")
colnames(insfa)[28]="Feel.under.pressure"
colnames(insfa)[32:41]=c("Everyday.life.festive", "Everyday.life.awesome", "Everyday.life.pleasant", "Everyday.life.lots.of.support", "Everyday.life.studious", "Everyday.life.oppressive", "Everyday.life.routine", "Everyday.life.boring", "Everyday.life.endless", "Everyday.life.tiring")
colnames(insfa)[42:47]=c("Campus.geographical.situation", "Campus.fitting", "Campus.cleanliness", "Campus.safety", "Campus.quality.of.structures", "Satisfaction.living.on.campus")
colnames(insfa)[48:52]=c("Canteen.value.for.money", "Canteen.varied.choices", "Canteen.innovation", "Canteen.taste", "Canteen.welcoming")
colnames(insfa)[53]="Frequency.going.to.the.center.of.Rennes"
colnames(insfa)[54:61]=c("Activity.in.town.shopping", "Activity.in.town.party", "Activity.in.town.bar.restaurant", "Activity.in.town.visit.walk", "Activity.in.town.sport", "Activity.in.town.sociocultural.activities", "Activity.in.town.none", "Activity.in.town.other")
colnames(insfa)[62:75]=c("Rennes.young", "Rennes.cultural", "Rennes.dynamic", "Rennes.historic", "Rennes.clean", "Rennes.pleasant", "Rennes.vibrant", "Rennes.beautiful", "Rennes.welcoming", "Rennes.too.small", "Rennes.too.big", "Rennes.noisy", "Rennes.dangerous", "Rennes.rainy")
colnames(insfa)[76:82]=c("Future.work.in.food.processing.company", "Future.job.in.connection.with.food", "Future.not.specially.work.in.food.processing.industry", "Future.go.abroad", "Future.continue.studies", "Future.change.counseling", "Future.no.idea")

library(FactoMineR)
library(dynGraph)
library(EnQuireR)

summary(insfa)

#MCA
insfa.MCA<-insfa[, c("Extra.campus.activity", "Member.of.BDE.association", "Member.of.La.Ruee.vers.Orge.association", 
  "Member.of.Solinsfa.association", "Member.of.Isogone.association", "Member.of.Fest.Noz.association", "Member.of.other.association", 
  "Member.of.no.association", "Studies.as.expected", "Feel.fulfilled.by.studies", "Quality.of.taught.courses", 
  "Interest.of.taught.courses", "Trainig.course.in.farm", 
  "Linguistic.training.course", "Training.course.in.a.French.food.industry", 
  "Master.project.abroad", "Personal.investment.for.projects", "Feel.under.pressure",
  "Need.more.time.for.working", 
  "Need.more.time.for.the.personal.life", "Need.more.time.for.sleep", 
  "Everyday.life.festive", "Everyday.life.awesome", "Everyday.life.pleasant", "Everyday.life.lots.of.support", "Everyday.life.studious", 
  "Everyday.life.oppressive", "Everyday.life.routine", "Everyday.life.boring", "Everyday.life.endless", "Everyday.life.tiring", 
  "Future.work.in.food.processing.company", 
  "Future.job.in.connection.with.food", 
  "Future.not.specially.work.in.food.processing.industry", "Future.go.abroad", 
  "Future.continue.studies", "Future.change.counseling", "Future.no.idea", 
  "Sex", "Year", "Eat.at.canteen", "Sports.on.the.campus", 
  "Attracted.by.the.food.processing.industry", "Liked.sciences", 
  "Encouraged.by.the.circle.of.acquaintances", "Looked.for.a.master.degree", 
  "Did.not.want.a.preparatory.school", "Other.reason.to.integrate.INSFA", "Campus.geographical.situation", 
  "Campus.fitting", "Campus.cleanliness", "Campus.safety", "Campus.quality.of.structures", 
  "Satisfaction.living.on.campus", "Canteen.value.for.money", "Canteen.varied.choices", 
  "Canteen.innovation", "Canteen.taste", "Canteen.welcoming", 
  "Frequency.going.to.the.center.of.Rennes", "Activity.in.town.shopping", "Activity.in.town.party", "Activity.in.town.bar.restaurant", "Activity.in.town.visit.walk", 
  "Activity.in.town.sport", "Activity.in.town.sociocultural.activities", "Activity.in.town.none", 
  "Activity.in.town.other", "Rennes.young", "Rennes.cultural", "Rennes.dynamic", "Rennes.historic", "Rennes.clean", "Rennes.pleasant", 
  "Rennes.vibrant", "Rennes.beautiful", "Rennes.welcoming", "Rennes.too.small", "Rennes.too.big",   
  "Rennes.noisy", "Rennes.dangerous", "Rennes.rainy")]

res<-MCA(insfa.MCA, ncp=5, quali.sup=39:82, level.ventil=0.05, graph = FALSE)
plot.MCA(res, axes=c(1, 2), col.ind="black", col.ind.sup="blue", 
  col.var="darkred", col.quali.sup="darkgreen", label=c("ind", "ind.sup", 
  "quali.sup", "var"), invisible=c(""))
plot.MCA(res, axes=c(1, 2), choix="var", col.var="darkred", 
  col.quali.sup="darkgreen", label=c("var", "quali.sup"), invisible=c(""))

#Option to print supplementary variables
plot.MCA(res, axes=c(1, 2), col.ind="black", col.ind.sup="blue", 
  col.var="darkred", col.quali.sup="darkgreen", label=c("ind", "ind.sup", 
  "quali.sup", "var"), invisible=c("var","ind"),cex=0.7)

#Option to print individuals
plot.MCA(res, axes=c(1, 2), col.ind="black", col.ind.sup="blue", 
  col.var="darkred", col.quali.sup="darkgreen", label=c("ind", "ind.sup", 
  "quali.sup", "var"), invisible=c("var","quali.sup"),cex=0.7)

#Option to print active variables
plot.MCA(res, axes=c(1, 2), col.ind="black", col.ind.sup="blue", 
  col.var="darkred", col.quali.sup="darkgreen", label=c("ind", "ind.sup", 
  "quali.sup", "var"), invisible=c("ind","quali.sup"),cex=0.7)

#Dimensions description
dimdesc(res)

#Hierarchical clustering
res.hcpc<-HCPC(res)

#dynGraph
dynGraph(res)

#EnQuireR
ENMCA(insfa.MCA, quali.sup=39:82, level.ventil=0.05, report=TRUE)